10 REM ROULETTE
20 POKE 53280,5:POKE 53281,5
30 PRINT"[147]":PRINT"[144]"
40 PRINT"WILLKOMMEN BEI ROULETTE"
60 NM=INT(37*RND(1))
65 PRINT""NM
70 IF NM=0 THEN110
71 IF NM=1 THEN111
72 IF NM=2 THEN112
73 IF NM=3 THEN113
74 IF NM=4 THEN114
75 IF NM=5 THEN115
76 IF NM=6 THEN116
77 IF NM=7 THEN117
78 IF NM=8 THEN118
79 IF NM=9 THEN119
80 IF NM=10THEN120
81 IF NM=11THEN121
82 IF NM=12THEN122
83 IF NM=13THEN123
84 IF NM=14THEN124
85 IF NM=15THEN125
86 IF NM=16THEN126
87 IF NM=17THEN127
88 IF NM=18THEN128
89 IF NM=19THEN129
90 IF NM=20THEN130
91 IF NM=21THEN131
92 IF NM=22THEN132
93 IF NM=23THEN133
94 IF NM=24THEN134
95 IF NM=25THEN135
96 IF NM=26THEN136
97 IF NM=27THEN137
98 IF NM=28THEN138
99 IF NM=29THEN139
100 IF NM=30 THEN 140
101 IF NM=31 THEN 141
102 IF NM=32 THEN 142
103 IF NM=33 THEN 143
104 IF NM=34 THEN 144
105 IF NM=35 THEN 145
106 IF NM=36 THEN 146
110 PRINT"SERO,0":GOTO 200
111 PRINT"1,ROT,UNGERADE":GOTO 200
112 PRINT"2,SCHWARZ,GERADE":GOTO 200
113 PRINT"3,ROT,UNGERADE":GOTO 200
114 PRINT"4,SCHWARZ,GERADE":GOTO 200
115 PRINT"5,ROT,UNGERADE":GOTO 200
116 PRINT"6,SCHWARZ,GERADE":GOTO 200
117 PRINT"7,ROT,UNGERADE":GOTO 200
118 PRINT"8,SCHWARZ,GERADE":GOTO 200
119 PRINT"9,ROT,UNGERADE":GOTO 200
120 PRINT"10,SCHWARZ,GERADE":GOTO 200
121 PRINT"11,SCHWARZ,UNGERADE":GOTO200
122 PRINT"12,ROT,GERADE":GOTO200
123 PRINT"13,SCHWARZ,UNGERADE":GOTO 200
124 PRINT"14,ROT,GERADE":GOTO200
125 PRINT"15,SCHWARZ,UNGERADE":GOTO 200
126 PRINT"16,ROT,GERADE":GOTO 200
127 PRINT"17,SCHWARZ,UNGERADE":GOTO200
128 PRINT"18,ROT,GERADE":GOTO  200
129 PRINT"19,ROT,UNGERADE":GOTO 200
130 PRINT"20,SCHWARZ,GERADE":GOTO  200
131 PRINT"21,ROT,UNGERADE":GOTO 200
132 PRINT"22,SCHWARZ,GERADE":GOTO  200
133 PRINT"23,ROT,UNGERADE":GOTO 200
134 PRINT"24,SCHWARZ,GERADE":GOTO  200
135 PRINT"25,ROT,UNGERADE":GOTO 200
136 PRINT"26,SCHWARZ,GERADE":GOTO  200
137 PRINT"27,ROT,UNGERADE":GOTO 200
138 PRINT"28,SCHWARZ,GERADE":GOTO 200
139 PRINT"29,SCHWARZ,UNGERADE":GOTO 200
140 PRINT"30,ROT,GERADE":GOTO 200
141 PRINT"31,SCHWARZ,UNGERADE":GOTO 200
142 PRINT"32,ROT,GERADE":GOTO 200
143 PRINT"33,SCHWARZ,UNGERADE":GOTO 200
144 PRINT"34,ROT,GERADE":GOTO 200
145 PRINT"35,SCHWARZ,UNGERADE":GOTO 200
146 PRINT"36,ROT,GERADE":GOTO 200
200 INPUT"NOCH EINMAL";A$
210 IF A$="J"THEN 10
220 IF A$<>"N"THEN 200